#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

    LOCAL n, ff AS LONG
    LOCAL e, r AS STRING

    ff = FREEFILE
    OPEN "list_frames.txt" FOR OUTPUT AS #ff
    e = DIR$("frame??.ico")
    WHILE LEN(e)
        PRINT #ff, "F" + LEFT$(RIGHT$(e,6),2) + " ICON MOVEABLE PURE LOADONCALL DISCARDABLE " + $DQ + e + $DQ
        e = DIR$(NEXT)
    WEND
    DIR$ CLOSE
    ?"list_frames.txt correctly generated",,"Done."

END FUNCTION